<script>on mouseUpput empty into collectionput ChooseStack() into stackPathif stackPath is Emptythenexit to HyperCardend iflock screenput MemorizeHere() into baseset lockMessages to truego to stackPathput Head() into collectionput StackScript() after collectionrepeat with bgsNum=1 to the number of bgsgo to cd 1 of bg bgsNumput BGScript(bgsNum) after collectionrepeat with bgFldsNum=1 to the number of bg fldsput bgFldScript(bgFldsNum) after collectionend repeatrepeat with bgBtnsNum=1 to the number of bg buttonsput bgBtnScript(bgBtnsNum) after collectionend repeatend repeatrepeat with k=1 to the number of cardsgo to cd kput CdScript(k) after collectionrepeat with l=1 to the number of cd fldsput CdFldScript(l) after collectionend repeatrepeat with m=1 to the number of cd buttonsput CdBtnScript(m) after collectionend repeatend repeatgo to baseput collection into cd fld "テ厩テ丑テ嘉、テ益テ曳テ液テ隠テ [テ嘉」テ栄"unlock screenbeepend mouseUpfunction Headput the short name of this stack into STACKNAMEput "************************************" & return into colput "**" && STACKNAME && "テテε厩テ丑テ嘉、テ益テ曳" & return after colput "**" &&"テゥヒ堙ィWテャヒ:" && the long date & return after colput "************************************" & return after colreturn colend Headfunction StackScriptget (the script of this stack) & returnif it is return then return emptyput return & "=====テ厩テ運テ叡テ丑テ厩テ丑テ嘉、テ益テ曳=====" & return & it & return into colreturn colend StackScriptfunction BGScript bgIdgo to cd 1 of bg bgIdget (the script of this bg) & returnif it is return then return emptyput the short name of this bg into bgNameif bgName is empty then put " No." && bgId into bgNameput "=====テ頴テ叡テ丑テ碓テ嘉「テ右テ嘉ャテ栄" && bgName && "テテε厩テ丑テ嘉、テ益テ曳=====" & return & return & it & return into colreturn colend BGScriptfunction BgFldScript iput the script of bg fld i into scrif scr is empty then return emptyput the short name of bg fld i into bgfldnameput "=====テ頴テ叡テ丑テ碓テ嘉「テ右テ嘉ャテ栄テ液テ隠テ [テ嘉」テ栄"&& i &"("&bgfldname&")テテε厩テ丑テ嘉、テ益テ曳=====" & return into colput return & scr & return after colreturn colend BgFldScriptfunction BgBtnScript jput the script of bg btn j into scrif scr is return then return emptyput the short name of bg btn j into bgbtnnameput "=====テ頴テ叡テ丑テ碓テ嘉「テ右テ嘉ャテ栄テ閲テ運テ嘉ャ No." & j && "(" & bgbtnname & ")テテε厩テ丑テ嘉、テ益テ曳=====" & return into colput return & scr & return after colreturn colend BgBtnScriptfunction CdScript cnput the script of this card into scrif scr is empty then return emptyput the short name of this cd into cardnameput "=====テ雨テ [テ栄 No." & cn & cardname && "テテε厩テ丑テ嘉、テ益テ曳=====" & return into colput return & scr & return after colreturn colend CdScriptfunction CdFldScript jput the script of cd fld j into scrif scr is empty then return emptyput the short name of cd fld j into cdfldnameput "=====テ雨テ [テ栄テ液テ隠テ [テ嘉」テ栄" &&j &"(" & cdfldname & ")テテε厩テ丑テ嘉、テ益テ曳=====" & return into colput return & scr & return after colreturn colend CdFldScriptfunction CdBtnScript mput the script of cd btn m into scrif scr is empty then return emptyput the short name of cd btn m into cdbtnnameput "=====テ雨テ [テ栄テ閲テ運テ嘉ャ" && m & "(" & cdbtnname & ")テテε厩テ丑テ嘉、テ益テ曳=====" & return into colput return & scr & return after colreturn colend CdBtnScriptfunction ChooseStackanswer file "テ厩テ運テ叡テ丑テï」ソテォIテォï」ソテツオテニ津竕 テテヲテ竕・テツ「テ⑦" of type "STAK"put it into StackNamereturn StackNameend ChooseStackfunction MemorizeHerepush cardpop card into herereturn hereend MemorizeHere</script>